home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0867.dms / q0867.adf / TRAPDOOR.LZH / Scripts / TossScan < prev    next >
Text File  |  1991-09-27  |  1KB  |  40 lines
  1. ; This script unpacks and tosses mail and packs outgoing mail
  2.  
  3. ; First, I lower my task priority so I do not slow down anything else
  4. changetaskpri -1
  5.  
  6. ; Second, I make a safety backup copy of the inbound mail bundles
  7. copy mail:inbound/????????.((mo|tu|we|th|fr|sa|su)(0|1|2|3|4|5|6|7|8|9)|pkt) mail:bak clone
  8.  
  9. ; Then I call TrapToss to toss and scan mail. The NOSCANOUTBOUND and
  10. ; NOROUTING keywords tell TrapToss that it should not mess with .FLO files
  11. ; in the outbound directory at this time nor should it archive anything
  12. ; yet. This is important because TrapDoor could just be trying to send an
  13. ; archive and the two programs might conflict.
  14.  
  15. failat 21
  16. TrapToss toss scan noscanoutbound norouting
  17.  
  18. ; So before I start changing archives in the outbound directory, I turn
  19. ; off TrapDoor (i.e. I disable inbound calls)
  20.  
  21. failat 101
  22. TrapTell "rings 99"
  23. TrapTell "rings 99"
  24. failat 21
  25.  
  26. ; Now I can pack the mail
  27.  
  28. TrapToss scanoutbound routing
  29.  
  30. ; Finally, I re-enable TrapDoor
  31.  
  32. failat 101
  33. TrapTell "rings 1"
  34. TrapTell "rings 1"
  35. failat 21
  36.  
  37. ; set task priority back to normal
  38.  
  39. changetaskpri 0
  40.